home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / add287pd.lha / AudioED287Update / Install < prev    next >
Text File  |  1995-09-28  |  3KB  |  87 lines
  1. ; $VER: AudioEDUpdate V 2.87 (28.09.95)
  2. ;
  3. ; Installation script for the Commodore Installer (tm)
  4. ;
  5. ; Updates the program AudioED 2.86 by Frank Enderle from
  6. ; the original 2.86 distribution to version 2.87.
  7.  
  8. ; startup message
  9.  
  10. (set old_level @user-level)
  11. (set sys_ver (/ (getversion "exec.library" (resident)) 65536))
  12.  
  13. (if (< sys_ver 37) (
  14.   (abort "AudioED requires at least Kickstart 2.04 !")
  15.   (exit (quiet))
  16. ))
  17.  
  18. (user 1)
  19. (message "This script updates the program\n\nAudioED\nVersion 2.86\n\n"
  20.          "which has to be present on your harddisk to version 2.87. To "
  21.          "get the complete program download the archive "
  22.          "text/print/audioed287.lha from the Aminet!\n\n"
  23.          "All patches contained in this archive are Copyright © 1995 by Frank Enderle\n\n"
  24.          "The patcher is Copyright © 1993 by MJSoft System Software, Martin Mares")
  25. (user old_level)
  26.  
  27. ; ask user where AudioED is installed
  28.  
  29. (set drawer
  30.   (askdir
  31.     (prompt "Please select the directory where you have AudioED 2.86 installed (eg. SYS:AudioED)")
  32.     (help @askdir-help)
  33.     (default "SYS:")
  34.   )
  35. )
  36.  
  37. (set @default-dest drawer)
  38.  
  39. (complete 25)
  40.  
  41. (if (exists (tackon drawer "AudioED") (noreq)) (
  42.   (copyfiles
  43.     (source (tackon drawer "AudioED"))
  44.     (dest drawer)
  45.     (newname "AudioED.bak")
  46.   )
  47.   (run "patcher"(tackon drawer "AudioED.bak") (tackon drawer "AudioED")"audioed.pch")
  48. ))
  49.  
  50. (complete 50)
  51.  
  52. (if (exists (tackon drawer "AudioED.guide") (noreq)) (
  53.   (copyfiles
  54.     (source (tackon drawer "AudioED.guide"))
  55.     (dest drawer)
  56.     (newname "AudioED.guide.bak")
  57.   )
  58.  
  59.   (working "Scanning guide file\n\nPlease wait a few seconds...")
  60.  
  61.   (set sum (getsum (tackon drawer "AudioED.guide")))
  62.  
  63.   (if (= sum $0618FD74) (
  64.     (run "patcher"(tackon drawer "AudioED.guide.bak") (tackon drawer "AudioED.guide")"guide_deutsch.pch")
  65.   ) (if (= sum $15FFCE05) (
  66.     (run "patcher"(tackon drawer "AudioED.guide.bak") (tackon drawer "AudioED.guide")"guide_english.pch")
  67.   )))
  68. ))
  69.  
  70. (complete 75)
  71.  
  72. (if (exists "locale:catalogs/deutsch/audioed.catalog" (noreq)) (
  73.   (copyfiles
  74.     (source "locale:catalogs/deutsch/audioed.catalog")
  75.     (dest "locale:catalogs/deutsch")
  76.     (newname "audioed.catalog.bak")
  77.   )
  78.   (run "patcher locale:catalogs/deutsch/audioed.catalog.bak locale:catalogs/deutsch/audioed.catalog audioed_deutsch_catalog.pch")
  79. ))
  80.  
  81. (if (> (exists ("c:multiview")) 0) (set mvpath "c:") )
  82. (if (> (exists ("sys:utilities/multiview")) 0) (set mvpath "sys:utilities") )
  83.  
  84. (run (cat "run " mvpath "/multiview Changes") )
  85. (complete 100)
  86. (exit)
  87.